function [discount,beca,stipend] = u30_2012(math,lang,demrecode,his,sci)
%% Universidad de La Frontera
lm=(math+lang)/2;
beca=zeros(size(lm,1),1);
stipend=zeros(size(lm,1),1);

%Beca Arancel de Inscripci'on
discount=(((2*lm+max(his,sci))/3>=750) + (math==850) + (lang==850) + (his==850) + (sci==850))>0;

%BVP
if demrecode==30044 || demrecode==30060 || demrecode==30047 || demrecode==30055 || demrecode==30056 || demrecode==30058
    [auxdiscount,stipend]=bvp(lm);
    discount=max(discount,auxdiscount);
end

end
